home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / Intro to HyperCard 2.0 / card_6129.txt < prev    next >
Text File  |  1990-08-24  |  2KB  |  104 lines
  1. -- card: 6129 from stack: in.0
  2. -- bmap block id: 12551
  3. -- flags: 0000
  4. -- background id: 15491
  5. -- name: What does Hyper
  6. ----- HyperTalk script -----
  7. -- part of the apple animation
  8. on action
  9.   set cursor to none
  10.   -- make the apple flash
  11.   repeat 8
  12.     set the hilite of btn "apple1" to not the hilite of btn "apple1"
  13.   end repeat
  14.   -- prepare next cd and go to it
  15.   show btn "apple1"
  16.   goNext
  17.   hide cd fld "text1" of prev cd
  18.   wait 30
  19.   show btn "apple1"
  20.   wait 30
  21.   repeat with n=2 to 21
  22.     show btn ("apple" & n)
  23.     wait 10
  24.   end repeat
  25.   wait 10
  26.   lock screen
  27.   show cd pict
  28.   unlock screen with dissolve
  29.   wait 10
  30.   showText
  31. end action
  32.  
  33.  
  34. -- part 2 (field)
  35. -- low flags: 81
  36. -- high flags: 0000
  37. -- rect: left=338 top=39 right=93 bottom=468
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 0
  41. -- font id: 174
  42. -- text size: 14
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: text1
  46.  
  47.  
  48. -- part 3 (button)
  49. -- low flags: 00
  50. -- high flags: 0000
  51. -- rect: left=158 top=100 right=141 bottom=197
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 9317 / 9317
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: apple1
  60.  
  61.  
  62. -- part 4 (button)
  63. -- low flags: 00
  64. -- high flags: 0000
  65. -- rect: left=474 top=195 right=224 bottom=506
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 24471 / 24471
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: MapBtn
  74. ----- HyperTalk script -----
  75. -- Go to the Map stack.  "CameFrom" holds the name of this cd
  76. -- so the Map can hilite the cd the user came from.
  77.  
  78. on mouseUp
  79.   global DisSpeed, CameFrom, MapMode
  80.   set the hilite of me to true
  81.   lock Screen
  82.   set the hilite of me to false
  83.   put "Introduction to" into CameFrom
  84.   put last char of the icon of bg btn "section" into sectionNum
  85.   if sectionNum > 3 then put 2 into sectionNum
  86.   put "section" && sectionNum & ":" into SubCd
  87.   visual DisSpeed
  88.   if MapMode is "graph" then
  89.     go to cd SubCd of stack "‚Ä¢HC 2.0-3"
  90.     HiliteMap
  91.   else
  92.     go to cd "indexmap" of stack "‚Ä¢HC 2.0-3"
  93.   end if
  94.   unlock screen with DisSpeed
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part contents for card part 2
  100. ----- text -----
  101. Ah, fruit...
  102.  
  103. especially apples...
  104.